PROC biouhr:
Rem Ver.1.0  by Erich Reitinger
Rem HAVE FUN!
Local a$(10),b$(10),c$(30),g%,c%,st%

open "M:\dat\biouhr.dbf",a,a$,b$,c$,d$,e$,f$,g$
st%=hour
a$="Maximum "
b$="Minimum "
c$="K”rperliche Bereitschaft fr"
first
do
c%=c%+1
next
if val(a.a$)=st%
s::
cls
if left$(a.b$,1)="#"
a.b$="šbergang "+right$(a.b$,len(a.b$)-1)
a.c$="šbergang "+right$(a.c$,len(a.c$)-1)
endif
print datim$
print "Stichzeit "+a.a$+" Uhr"
print a$+a.b$
print b$+a.c$
print c$
print a.d$
print a.e$
print a.f$
print a.g$
g%=get
if g%=256
c%=c%-1
position c% :goto s::
elseif g%=257
c%=c%+1
position c% :goto s::
elseif g%=27
break
endif
endif
until eof
close
endp